Animation of Sin(x)

circlePts[θ_]:= 
	Graphics[{Circle[{0,0},1],{Hue[0.5],Thickness[.01],Line[{{0,0}, {Cos[θ],Sin[θ]}}]}, {Hue[0],Line[{{Cos[θ], 0}, {Cos[θ], Sin[θ]}}]},{Hue[0],PointSize[.03],Point[{Cos[θ], Sin[θ]}]}},
  AspectRatio -> 1, Axes -> Automatic,Ticks ->{{-1, 1}, {-1, 1}} ,
  Epilog->Text[StringJoin["θ = ", ToString[θ,TraditionalForm]], {Cos[θ] + .4, Sin[θ]}]]

sinPlot[θ_]:=Plot[Sin[x], {x, 0, 2π},Ticks->{{0,(π/2),π,((3 π)/2),2 π},{-1, 1}},PlotRange ->{-1, 1},PlotLabel -> "y = Sin(θ)", 
		AxesLabel ->{"θ",None},Epilog->{{Hue[0],PointSize[.04],Point[{θ, Sin[θ]}]}, {Hue[0],Line[{{θ, 0}, {θ, Sin[θ]}}]}},
		DisplayFunction->Identity,AspectRatio->1]

Manipulate[GraphicsRow[{circlePts[θ],sinPlot[θ]}],{θ,0,2 π,(π/12)}]